home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / Administration / Flash Card Template / background_2697.txt < prev    next >
Text File  |  1989-01-28  |  4KB  |  177 lines
  1. -- background: 2697 from stack: in
  2. -- bmap block id: 3779
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   hide field 2
  10.   show menuBar
  11.   pass openStack
  12. end openStack
  13.  
  14.  
  15.  
  16. -- part 9 (button)
  17. -- low flags: 00
  18. -- high flags: 0000
  19. -- rect: left=228 top=298 right=321 bottom=254
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 1014 / 1014
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Prev
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   hide field 2
  31.   visual effect scroll right
  32.   go to prev card
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 16 (field)
  38. -- low flags: 01
  39. -- high flags: 0002
  40. -- rect: left=37 top=122 right=207 bottom=237
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: 
  49.  
  50.  
  51. -- part 17 (field)
  52. -- low flags: 81
  53. -- high flags: 0004
  54. -- rect: left=162 top=215 right=300 bottom=362
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 256
  61. -- line height: 16
  62. -- part name: 
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   hide field 2
  66. end mouseUp
  67.  
  68.  
  69.  
  70.  
  71. -- part 18 (button)
  72. -- low flags: 00
  73. -- high flags: A003
  74. -- rect: left=392 top=211 right=265 bottom=434
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 14767 / 14767
  77. -- text alignment: 1
  78. -- font id: 129
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Answer
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   show field 2
  86. end mouseUp
  87.  
  88.  
  89.  
  90.  
  91.  
  92. -- part 20 (field)
  93. -- low flags: 00
  94. -- high flags: 4004
  95. -- rect: left=279 top=121 right=206 bottom=479
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: 
  104.  
  105.  
  106. -- part 22 (button)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=17 top=31 right=66 bottom=53
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 20098 / 20098
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Home Button
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   go home
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 30 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=256 top=298 right=321 bottom=281
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 1013 / 1013
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Next
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   put word 1 of field 3 into newString
  140.   put 1 into numStudentWords
  141.   put 2 into X
  142.   put " " into nextWord
  143.   repeat while nextWord <> ""
  144.     put word X of field 3 into nextWord
  145.     if nextWord is empty then exit repeat
  146.     put newString && word X of field 3 into newString
  147.     put numStudentWords + 1 into numStudentWords
  148.     put X + 1 into X
  149.   end repeat
  150.   put newString into Student
  151.  
  152.   put word 1 of field 2 into newString
  153.   put 1 into numCorrectWords
  154.   put 2 into X
  155.   put " " into nextWord
  156.   repeat while nextWord <> ""
  157.     put word X of field 2 into nextWord
  158.     if nextWord is empty then exit repeat
  159.     put newString && word X of field 2 into newString
  160.     put numCorrectWords + 1 into numCorrectWords
  161.     put X + 1 into X
  162.   end repeat
  163.   put newString into Correct
  164.  
  165.   if correct = student
  166.   then answer "That is correct" with "OK"
  167. else answer "That is wrong" with "Try Again" or "OK"
  168. if It = "Try Again"
  169. then exit mouseUp
  170. visual effect scroll left
  171. hide field 2
  172. go to next card
  173. tabKey
  174. end mouseUp
  175.  
  176.  
  177.